home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0693 / MAKETDRW.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-30  |  1KB  |  34 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 259 of 389
  3. From : Edward Walker                       1:387/654.0          15 Jun 93  15:03
  4. To   : Dustin Nulf
  5. Subj : screen stuff..
  6. ────────────────────────────────────────────────────────────────────────────────
  7. Hello Dustin!
  8.  
  9.    I decided to take a closer look at what you were trying to do (now that I'm
  10. awake) and came up with this.. Total coding time, about 3 min including making
  11. a cheap thedraw file that says test in alot of colors...
  12.  
  13.    Save each ansi file as (P)ascal format, give them each a filename, then do
  14. the following like this :
  15.  
  16. ====}
  17.  
  18. Program Make_Pix_File;
  19.  
  20. Uses Dos, Crt;
  21.  
  22. {$I thedraw_pascal_format_file_name}
  23.  
  24. VAR
  25.   f : File;
  26.  
  27. BEGIN
  28.   Write('■ Converting ... ');
  29.   Assign(f, ParamCount(1));   (* pass the file to be written to cmdline *)
  30.   ReWrite(f,1);               (* Zaap! *)
  31.   BlockWrite(f, ImageData, 4000);  (* Write IMAGEDATA from TheDraw to file *)
  32.   Close(f);
  33.   WriteLn('Done!');
  34. END.